vcolobasic = 'w+/rb,gr+/r'
SAVE SCREEN TO vscreen
SET COLO TO W+/R
@ 24,0 CLEAR
STORE 0 TO vadd
DO BOX2 WITH 22,20,"DO YOU WANT TO ? :","ADD INSURANCE","CANCEL",'GR+','RB','GR+','R',VADD,.F.,.T.
IF LASTKEY()=27 .OR. VADD=2
   REST SCREEN FROM vscreen
   RETURN
ENDIF
REST SCREEN FROM vscreen
SET COLO TO W+/rb,w+/n+
@ 13,3 CLEAR TO 17,52
@ 13,3 TO 17,52 DOUBLE
@ 13,20 SAY '[Input Insurance]'
@ 14,9 SAY 'Insurance Name :'
* 15,9 say 'Country Code   :'
* 16,9 say 'Nationality    :'
*set colo to
@ 14,26 say space(45)
*@ 15,26 say space(4)
*@ 16,26 say space(24)
STORE SPACE(4) TO vcode
STORE SPACE(20) TO vciti
STORE SPACE(15) TO vname
SAVE SCREEN TO VSCREEN1
DO WHILE .T.
*   SET INTEN ON
   @ 14,26 GET vname PICT '@!'
   READ
   IF vname =  SPACE(45)
      REST SCREEN FROM VSCREEN1
      LOOP
   ENDIF
   GO TOP
   LOCA FOR subs(country,1,10) = subs(vname,1,10)
   IF .NOT. EOF()
      SET COLO TO W+*/R
      @ 24,0 CLEA
      @ 24,7 SAY 'This Insurance is already exist, press any key to continue ..!'
      @ 23,0 SAY ''
      WAIT ''
      REST SCREEN FROM vscreen1
      LOOP
   ENDIF
   IF FIL_LOCK()
      APPE BLANK
      IF REC_LOCK()
         REPL ins_name WITH vname
      ENDIF
      UNLOCK
   ENDIF
   EXIT
ENDDO
insnam=vname
RELE ALL LIKE V*
RETURN
